home *** CD-ROM | disk | FTP | other *** search
/ Disney Interactive Software Sampler 1998 to 1999 / DISNEY99.ISO / Install / data1.cab / Program_Executable_Files / Play Disney 1999 Sampler.exe / Play Disney 1999 Sampler.dxr / 00001.ls next >
Encoding:
Text File  |  1998-11-18  |  430 b   |  22 lines
  1. global myCD
  2.  
  3. on startMovie
  4.   set myCD to cHECKdRIVE("E1.txt")
  5.   cursor(200)
  6. end
  7.  
  8. on cHECKdRIVE weirdfile
  9.   repeat with i = 66 to 90
  10.     set drive to numToChar(i)
  11.     set thisPath to string(drive & ":\licence\" & weirdfile)
  12.     set myFile to new(xtra("fileIO"))
  13.     openFile(myFile, thisPath, 1)
  14.     if status(myFile) = 0 then
  15.       set myFile to 0
  16.       return drive & ":"
  17.       exit
  18.     end if
  19.   end repeat
  20.   set myFile to 0
  21. end
  22.